Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/Compiler/Builtins/phoney_VectorOfChar.m

Text File | 1990-08-16 | 736 b | 26 lines

%
% @(#)phoney_VectorOfCX
    1.1  3/16/88
%
export _VectorOfCharObject to "Builtins"
const _VectorOfCharObject == immutable object _VectorOfCharObject
  export getSignature, create
  const voctype == type voctype
    function getElement [Integer] -> [Character]
    operation setElement [Integer, Character]
  end voctype
  function getSignature -> [r : Signature]
    r <- voctype
  end getSignature
  operation create [n : Integer]-> [r : voctype]
    r <- object aVectorOfChar
      export getElement, setElement
      function getElement [i : Integer] -> [r : Character]

      end getElement
      operation setElement [i : Integer, r : Character]

      end setElement
    end aVectorOfChar
  end create
end _VectorOfCharObject